home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / cad boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  87 lines
  1. 100 iflthen420
  2. 110 poke53281,0:poke53280,0:print"[147][158]";
  3. 120 c$="12121515010115151212":cc=-1
  4. 130 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  5. 140 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  6. 150 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  7. 160 poke2023,peek(1083):poke56295,peek(56255)
  8. 170 fori=217to242:pokei,peek(i)or128:next
  9. 180 poke214,5:print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]"
  10. 190 next:poke214,6:poke211,4:sys58732
  11. 200 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 210 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
  13. 220 poke214,16:poke211,4:sys58732
  14. 230 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 240 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,8:print
  16. 250 a$="[195][160][193][160][196][160]-[160][205]":gosub310
  17. 260 a$="by [205]ike [205]ilroy":gosub310
  18. 270 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#[160]64":gosub310
  19. 280 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub310
  20. 290 a$="([195]) 1989 [205]ike [205]ilroy":gosub310
  21. 300 goto320
  22. 310 printspc(20-len(a$)/2)"[152]"a$:return
  23. 320 poke214,18:sys58732:fori=1to6
  24. 330 print"[152]                                      ":next:print""
  25. 340 poke214,19:poke211,4:sys58732
  26. 350 print"1. [204][207][193][196][160][195][193][196]-[205]
  27. 360 [153]"2. (NULL)(NULL)right$(NULL)(NULL)closelenatnstr$-(NULL) (NULL)atn(NULL)(NULL)atn(NULL)
  28. 370 print"3. [198][201][206][196][160][207][213][212][160][193][194][207][213][212][160][197][206][200][193][206][195][197][196] [195][193][196]-[205]
  29. 380 [153]"4. (NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  30. 390 print""
  31. 400 geta$:ifa$<"1"ora$>"4"then400
  32. 410 onval(a$)goto420,880,750,900
  33. 420 rem"[211]=save"@0:cad-m v.2 loader",8
  34. 430 [143] this prog loads the 3 files of cad-m, and jumps to start cad-m after
  35. 440 [143] setting the following:
  36. 450 ms[178]12288:[143] memsiz=$3000 (just change this val for different versions)
  37. 460 [143] ---------------------
  38. 470 [145] l [137]530,550,670:[143] because each load causes prog to restart
  39. 480 l[178]1
  40. 490 [139] [194](777)[178]167[167][137]510:[143] igone=def val
  41. 500 [153]"loadshut off computer (to reset) before     running this program":[144]
  42. 510 [153]
  43. 520 [147]"co2r",8,1
  44. 530 l[178]l[170]1 :[143] do this just after a load
  45. 540 [147]"co2z",8,1
  46. 550 l[178]l[170]1 :[143] do this just after a load
  47. 560 [143] the following loads "co2p"
  48. 570 a$[178]"co2p":[143] name of file to be loaded
  49. 580 [129]n[178]1 [164] [195](a$)
  50. 590 [151] 820[170](n[171]1),[198]([202](a$,n,1)):[130]
  51. 600 a[178]780:[143] .a reg
  52. 610 x[178]781
  53. 620 y[178]782
  54. 630 p[178]783
  55. 640 [151] a,1:[151]x,8:[151]y,0:[158]65466:[143] setlfs
  56. 650 [151] a,[195](a$):[151]x,820[175]255:[151]y,820[173]256:[158]65469:[143] setnam
  57. 660 [151] a,0:[151]x,0:[151]y,224:[158]65493:[143] load at $e000
  58. 670 l[178]l[170]1
  59. 680 [151] 55,ms[175]255:[151]56,ms[173]255:[143] set memsiz
  60. 690 [153]"loadnew
  61. 700 print"":rem cursor down
  62. 710 print"sys38656":rem sys$9700
  63. 720 print"";:rem home
  64. 730 forn=0to1
  65. 740 poke631+n,13:next:poke198,n:end
  66. 750 poke214,18:sys58732:fori=1to6
  67. 760 print"[152]                                      ":next:print""
  68. 770 poke214,19:poke211,4:sys58732
  69. 780 print"[193]n enhanced version of [195][193][196]-[205],
  70. 790 [153]"which includes len(NULL)(NULL)(NULL)(NULL)closeascright$(NULL)(NULL)(NULL) and
  71. 800 print"[200][201][196][196][197][206] [211][213][210][198][193][195][197][160][210][197][205][207][214][193][204] is available."
  72. 810 print"[198]or details, run '[197][206][200][193][206][195][197][196][160][196][197][205][207]'."
  73. 820 geta$:gosub850:ifa$<>"y"anda$<>"n"then820
  74. 830 ifa$="n"then320
  75. 840 a$="enhanced demo":goto910
  76. 850 cc=cc+2:ifcc>20thencc=1
  77. 860 poke214,23:poke211,10:sys58732:poke646,val(mid$(c$,cc,2))
  78. 870 print" [210]un the demo?  ([217]/[206]) [145]":return
  79. 880 a$="manual maker":goto910
  80. 890 stop
  81. 900 a$="hello connect":goto910
  82. 910 open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  83. 920 if er<>63 then print"[147]":end
  84. 930 :q$=chr$(34):print"[144][147]"
  85. 940 print"load"q$a$q$",8"
  86. 950 print"run":poke631,13:poke632,13:poke198,2:end
  87.